04-coralseed-clamgarden.RmdExample coralseed scenario from Clam Garden, a lagoonal
site at Lizard Island (nGBR), December 2022. The model simulates a point
source release of 1000 particles from a 5*5m area within the site across
a 6.95hrs period.
#devtools::install_github("marine-ecologist/coralseed", lib = "/Users/rof011/coralseed")
#devtools::document("/Users/rof011/coralseed")
library(coralseed)
library(ggplot2)
library(tidyverse)
library(sf)
library(tmap)
library(widgetframe)
seascape <- seascape_probability(reefoutline=reef_map, habitat=benthic_map)
particles <- seed_particles(input="ClamGarden_PointSource_OpenLagoon_01", seascape=seascape,
limit_time=6.95, competency.function = "exponential",
limit.time = 720, simulate.mortality = "typeI",
simulate.mortality.n = 0.1, probability="additive",
return.plot=FALSE, silent=TRUE)
settlers <- settle_particles(particles, probability="additive", silent=TRUE)
map_output <- map_coralseed(seed_particles=particles, settle_particles=settlers,
seascape_probability=seascape, restoration.plot=c(100,100))
map_output